-- card: 5761 from stack: in
-- bmap block id: 6041
-- flags: 4000
-- background id: 2238
-- name: Segment w/a Base
----- HyperTalk script -----
on mouseUp
  set numberFormat to <0.000000>

  --Calculate Arc AB
  get ((pi*card field "Radius")/180)*card field "Degrees"
  put it into card field "Arc AB"

  --Calculate Segment Perimeter
  get cos(card field "Degrees"*(pi/180))
  put it into mem2
  get (sqrt((card field "Radius"^2+card field "Radius"^2) -2*(card field "Radius"*card field "Radius"*mem2)))+ card field "Arc AB"
  put it into card field "Segment Perimeter"

  --Calculate SIDE C
  get (sqrt((card field "Radius"^2+card field "Radius"^2) -2*(card field "Radius"*card field "Radius"*mem2)))
  put it into mem13

  --Calculate Triangular Area
  get (card field "Radius"+card field "Radius"+mem13)/2
  put it into mem10
  get sqrt(mem10*(mem10-card field "Radius")*(mem10-card field "Radius") *(mem10-mem13))
  put it into mem20

  --Calculate Segment Area
  get ((card field "Arc AB"*Card field "Radius")/2)-mem20
  put it into card field "Segment Area"
end mouseUp


-- part 1 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=312 top=96 right=114 bottom=459
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Radius


-- part 3 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=312 top=119 right=137 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Degrees


-- part 4 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=305 top=184 right=203 bottom=452
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Arc AB


-- part 5 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=305 top=219 right=238 bottom=452
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Segment Perimeter


-- part 6 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=305 top=254 right=273 bottom=452
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Segment Area


-- part contents for card part 1
----- text -----
.5

-- part contents for card part 3
----- text -----
90.000000


-- part contents for card part 4
----- text -----
0.785398

-- part contents for card part 5
----- text -----
1.492505

-- part contents for card part 6
----- text -----
0.071350